perm filename N[SAI,BGB] blob sn#036850 filedate 1973-05-01 generic text, type T, neo UTF8
COMMENT ⊗   VALID 00005 PAGES 
RECORD PAGE   DESCRIPTION
 00001 00001
 00002 00002	
 00004 00003	 NAMES OF NODE DATA WORDS.
 00005 00004	TYPE BIT OPERATIONS.
 00006 00005	PROPERTY-TYPE BITS.
 00007 ENDMK
⊗;

	DEFINE LEFT $(NAM,WRD,Z){
	IFIDN<><Z><DEFINE NAM(A,Q)<CAR A,WRD(Q)>>
	IFDIF<><Z><DEFINE NAM(A,Q)<NIP A,WRD(Q)>>
	DEFINE NAM$.(A,Q)<DIP A,WRD(Q)>}

	DEFINE RIGHT $(NAM,WRD,Z){
	IFIDN<><Z><DEFINE NAM(A,Q)<CDR A,WRD(Q)>>
	IFDIF<><Z><DEFINE NAM(A,Q)<NAP A,WRD(Q)>>
	DEFINE NAM$.(A,Q)<DAP A,WRD(Q)>}

;DEFINE GEM LINK NAMES.

	LEFT(X1DC,-3,N)↔	RIGHT(Y1DC,-3,N)
	LEFT(X2DC,-2,N)↔	RIGHT(Y2DC,-2,N)
	LEFT(TYPE,0)
	DEFINE $TYPE(Q,E)<LDB Q,[POINT 4,(E),35]>
	LEFT(NFACE,1)↔		RIGHT(PFACE,1)
   DEFINE XDC (Q,E)<HLLE Q,1(E)>↔DEFINE YDC (Q,E)<HRLE Q,1(E)>
   DEFINE XDC.(Q,E)<HLLM Q,1(E)>↔DEFINE YDC.(Q,E)<HLRM Q,1(E)>
	LEFT(NED,2)↔		RIGHT(PED,2)
	LEFT(PTEXT,2)
	LEFT(NCNT,2,N)
	LEFT(NVT,3)↔		RIGHT(PVT,3)
	LEFT(NCW,4)↔		RIGHT(PCW,4)
	LEFT(DAD,4)↔		RIGHT(SON,4)
	LEFT(NCCW,5)↔		RIGHT(PCCW,5)
	LEFT(BRO,5)↔		RIGHT(SIS,5)
	LEFT(ALT,6)↔		RIGHT(ALT2,6)
	RIGHT(FRAME,6)↔		RIGHT(POTEN,6)
	LEFT(CW,7)↔		RIGHT(CCW,7)
; NAMES OF NODE DATA WORDS.

	↓AA ←← ↓XWC ←← -3
	↓BB ←← ↓YWC ←← -2
	↓CC ←← ↓ZWC ←← -1

	↓QQ ←← 7
	↓KK ←← 3

	↓XPP ←← 4↔	↓YPP ←← 5↔	↓ZPP ←← 6
	↓IX←←0↔ 	↓IY←←1↔ 	↓IZ←←2
	↓JX←←3↔ 	↓JY←←4↔ 	↓JZ←←5
	↓KX←←6↔ 	↓KY←←7↔ 	↓KZ←←8

;NODE SERIAL TYPE NUMBERS.

	↓$FRAME		←←	0
	↓$EMPTY		←←	1
	↓$UNIVERSE	←←	2
	↓$SUN		←←	3

	↓$CAMERA	←←	4
	↓$WORLD		←←	5
	↓$WINDOW	←←	6
	↓$IMAGE		←←	7

	↓$TEXT		←←	10
	↓$XNODE		←←	11
	↓$YNODE		←←	12
	↓$ZNODE		←←	13

	↓$BODY 		←←	14
	↓$FACE 		←←	15
	↓$EDGE 		←←	16
	↓$VERT 		←←	17
;TYPE BIT OPERATIONS.

	DEFINE MARK(Q,BITS){
	IFE BITS⊗-22,{LACI BITS}
	IFN BITS⊗-22,{SLACI(BITS)}
	IORM(Q)}

	DEFINE MARKZ(Q,BITS){
	IFE BITS⊗-22,{LACI BITS}
	IFN BITS⊗-22,{SLACI(BITS)}
	ANDCAM (Q)}

	DEFINE TEST(Q,BITS){
	LAC(Q)
	IFE BITS⊗-22,{TRNN BITS }
	IFN BITS⊗-22,{TLNN(BITS)}}

	DEFINE TESTZ(Q,BITS){
	LAC(Q)
	IFE BITS⊗-22,{TRNE BITS }
	IFN BITS⊗-22,{TLNE(BITS)}}

;PROPERTY-TYPE BITS.
	↓PBIT ←← 1B30		;PART.
	↓BBIT ←← 1B17
	↓FBIT ←← 1B16
	↓EBIT ←← 1B15
	↓VBIT ←← 1B14

	↓PZZ ←← 1B1
	↓NZZ ←← 1B10

	↓FOLDED ←← 1B11
	↓VISIBLE ←← 1B12
	↓POTENT ←← 1B13
	↓DARKEN ←← 1B3

	↓NORTH ←← 1B5
	↓SOUTH ←← 1B6
	↓EAST  ←← 1B7
	↓WEST  ←← 1B8
	↓NSEW  ←← 17B8

	↓JUTBIT ←← 1B3
	↓JOTBIT ←← 1B4
	DEFINE HIDE(Q){
	SLACI(3B13)↔ANDCAM(Q)}

	↓TMPBIT ←← 1B2
	↓BDLBIT ←← 1B1	;BODY OPERATION DISABLE LOCOR ACTION.
	↓BDVBIT ←← 1B3	;BODY OPERATION DISABLE VERTEX ACTION.
	↓BDPBIT ←← 1B4	;BODY OPERATION DISABLE PARTS ACTION.

	↓TXTBIT ←← 1B24	;TEXT VERTEX.